﻿Imports JuegosLanBackend
Public Class ListarParticipante

    Private Sub btnListar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListar.Click

        Dim list As New ParticipanteNegocio
        Dim cat As Collection = list.listar()
        Me.dgvListar.DataSource = cat
        Me.dgvListar.EditMode = False

        Me.dgvListar.Columns(0).HeaderText = "ID"
        Me.dgvListar.Columns(1).HeaderText = "Nombre"
        Me.dgvListar.Columns(2).HeaderText = "Apellido"
        Me.dgvListar.Columns(3).HeaderText = "Fec. De Nac."
        Me.dgvListar.Columns(4).HeaderText = "Sexo"
        Me.dgvListar.Columns(5).HeaderText = "Correo"
        Me.dgvListar.Columns(6).HeaderText = "Direccion"

    End Sub
End Class